home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 170 / Tiger_Disk_170_2010-08_Tiger-Crew-Disk_de_Side_B.d64 / imbissbude org (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  212 lines
  1. 10 print"[147]"chr$(142)
  2. 20 t=1:t$="montag":k=1000:te=15:i=-1
  3. 30 poke53280,12:poke53281,12
  4. 40 printtab(5)"**** i m b i s s - b u d e ****"
  5. 50 print"[151]fuer den commodore 64"
  6. 60 print"(c) bei [158]rossi[151]
  7. 70 [153]"? wollen sie die spielanleitung lesen ?"
  8. 80 i[178]i[170]5:[139]i[177]255[167]i[178]0
  9. 90 [151]646,i:[153]""[163]5)"****"[163]32)"****":[161]e$:[139]e$[179][177]""[167]110
  10. 100 [137]80
  11. 110 [139]e$[178]"j"[167][141]1960:[137]130
  12. 120 [139]e$[179][177]"n"[167]100
  13. 130 [133]"loadpokewieviel wochen wollen sie arbeiten ";zw%:zw[178]zw%
  14. 140 [139]zw[179]1[176]zw[177]30[167]130
  15. 150 [143] *** bildschirmmaske ***
  16. 160 [153]"loadtag:           temperatur:"
  17. 170 [153]"kasseninhalt:"
  18. 180 [153]"warenvorat:            verkaufspreise:"
  19. 190 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  20. 200 [153]"schokoladeneis:     stueck   *       pf"
  21. 210 [153]"zitroneneis   :     stueck   *       pf"
  22. 220 [153]"waldmeistereis:     stueck   *       pf"
  23. 230 [153]"cola          :     flaschen *       pf"
  24. 240 [153]"zigaretten    :     pack.    *       pf"
  25. 250 [153]"bratwuerste   :     stueck   *       pf"
  26. 260 [153]"pommes frites :     teller   *       pf"
  27. 270 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  28. 280 [141]520
  29. 290 [139]t[178]6[176]t[178]7[167]350
  30. 300 [141]510:[153]"moechten sie etwas einkaufen ?";
  31. 310 [151]198,0:[146]198,1:[161]e$
  32. 320 [139]e$[178]"j"[167][141]710:[137]350
  33. 330 [139]e$[179][177]"n"[167]310
  34. 340 [141]520
  35. 350 [141]510:[153]"moechten sie ihre preise aendern ?";
  36. 360 [151]198,0:[146]198,1:[161]e$
  37. 370 [139]e$[178]"j"[167][141]1050:[137]390
  38. 380 [139]e$[179][177]"n"[167]360
  39. 390 [141]1170
  40. 400 t[178]t[170]1:[139]t[178]8[167]t[178]1:w[178]w[170]1:[139]w[178]zw[167]1860
  41. 410 [139]t[178]1[167]t$[178]"montag"
  42. 420 [139]t[178]2[167]t$[178]"dienstag"
  43. 430 [139]t[178]3[167]t$[178]"mittwoch"
  44. 440 [139]t[178]4[167]t$[178]"donnerstag"
  45. 450 [139]t[178]5[167]t$[178]"freitag"
  46. 460 [139]t[178]6[167]t$[178]"samstag"
  47. 470 [139]t[178]7[167]t$[178]"sonntag"
  48. 480 z1[178][171]9:z2[178]40:[141]500:te[178]z
  49. 490 [137]280
  50. 500 z[178]([181]([187](ti)[172](z2[171]z1))[170]z1):[142]
  51. 510 [153]"":[129]i[178]1[164]17:[153]:[130]:[142]
  52. 515 [153]"":[129]i[178]1[164]17:[153]:[130]:[153]"! preise bitte in syspfennigwaitpoke angeben !
  53. 518 return
  54. 520 print""tab(4)"          ":print"[145]"tab(4)t$
  55. 530 print"[145]"tab(28)"    ":print"[145]"tab(26)te"c"
  56. 540 print""tab(14)"                   ":print"[145]"tab(14)k/100"dm"
  57. 545 print""
  58. 550 printtab(15)"    [157][157][157][157]"w1
  59. 560 print"[145]"tab(31)"      [157][157][157][157][157][157]"v1
  60. 570 printtab(15)"    [157][157][157][157]"w2
  61. 580 print"[145]"tab(31)"      [157][157][157][157][157][157]"v2
  62. 590 printtab(15)"    [157][157][157][157]"w3
  63. 600 print"[145]"tab(31)"      [157][157][157][157][157][157]"v3
  64. 610 printtab(15)"    [157][157][157][157]"w4
  65. 620 print"[145]"tab(31)"      [157][157][157][157][157][157]"v4
  66. 630 printtab(15)"    [157][157][157][157]"w5
  67. 640 print"[145]"tab(31)"      [157][157][157][157][157][157]"v5
  68. 650 printtab(15)"    [157][157][157][157]"w6
  69. 660 print"[145]"tab(31)"      [157][157][157][157][157][157]"v6
  70. 670 printtab(15)"    [157][157][157][157]"w7
  71. 680 print"[145]"tab(31)"      [157][157][157][157][157][157]"v7
  72. 690 gosub510:fori=1to50:print"    ";:next
  73. 700 gosub510:print"[151]":return
  74. 710 rem *** waren einkaufen ***
  75. 720 gosub520
  76. 730 z1=10:z2=40
  77. 740 ifte>5thenz1=20:z2=45
  78. 750 ifte>10thenz1=30:z2=50
  79. 760 ifte>15thenz1=40:z2=60
  80. 770 ifte>20thenz1=40:z2=70
  81. 780 ifte>30thenz1=50:z2=90
  82. 790 ifte>35thenz1=80:z2=100
  83. 800 ift=5thenz1=z1+15:z2=z2+15
  84. 810 gosub500:h1=z:gosub500:h2=z:gosub500:h3=z:gosub500:h4=z+10
  85. 820 gosub500:h6=150-z:gosub500:h7=170-z:z1=4:z2=9:gosub500:h5=z*50
  86. 830 gosub510:print"wieviel schokoladeneis zu"h1"pf ";:inpute
  87. 840 ife*h1>kthen830
  88. 850 w1=w1+e:k=k-(h1*e):gosub520
  89. 860 gosub510:print"wieviel zitroneneis zu"h2"pf ";:inpute
  90. 870 ife*h2>kthen860
  91. 880 w2=w2+e:k=k-(h2*e):gosub520
  92. 890 gosub510:print"wieviel waldmeistereis zu"h3"pf ";:inpute
  93. 900 ife*h3>kthen890
  94. 910 w3=w3+e:k=k-(h3*e):gosub520
  95. 920 gosub510:print"wieviel flaschen cola zu"h4"pf ";:inpute
  96. 930 ife*h4>kthen920
  97. 940 w4=w4+e:k=k-(h4*e):gosub520
  98. 950 gosub510:print"wieviel pack.zigaretten zu"h5"pf ";:inpute
  99. 960 ife*h5>kthen950
  100. 970 w5=w5+e:k=k-(h5*e):gosub520
  101. 980 gosub510:print"wieviel bratwuerste zu"h6"pf ";:inpute
  102. 990 ife*h6>kthen980
  103. 1000 w6=w6+e:k=k-(h6*e):gosub520
  104. 1010 gosub510:print"wieviel teller pommes zu"h7"pf ";:inpute
  105. 1020 ife*h7>kthen1010
  106. 1030 w7=w7+e:k=k-(h7*e):gosub520
  107. 1040 return
  108. 1050 rem *** preise eingeben ***
  109. 1060 gosub520:gosub515
  110. 1080 input"schokoladeneis ";v1:gosub520
  111. 1090 gosub515:input"zitroneneis ";v2:gosub520
  112. 1100 gosub515:input"waldmeistereis ";v3:gosub520
  113. 1110 gosub515:input"cola ";v4:gosub520
  114. 1120 gosub515:input"zigaretten ";v5:gosub520
  115. 1130 gosub515:input"bratwuerste ";v6:gosub520
  116. 1140 gosub515:input"pommes frites ";v7:gosub520
  117. 1150 return
  118. 1160 rem *** kunden simulieren ***
  119. 1170 bk=30:ek=10:zk=10
  120. 1180 ift=6thenbk=40:ek=15:zk=13
  121. 1190 ift=7thenbk=40:ek=20:zk=18
  122. 1200 ve=v1:ifve>v2thenve=v2
  123. 1210 ifve>v3thenve=v3
  124. 1220 ek=ek-int(ve/10)
  125. 1230 vb=v6:ifvb>v7thenvb=v7
  126. 1240 bk=bk-int(vb/20)
  127. 1250 zk=zk-int(v5/100)
  128. 1260 ek=ek+int(te/2):bk=bk-int(te/2)
  129. 1270 gosub510:print"! ihr imbiss oeffnet die rollaeden !"
  130. 1280 print"temp.="te"c"
  131. 1290 ak=ek+bk+zk
  132. 1300 ifak<2thenfori=1to1000:next:return
  133. 1310 foru=1toak:gosub1330:next
  134. 1320 gosub545:return
  135. 1330 s=1:z1=1:z2=10:gosub500:e=z:ifz=2thens=2
  136. 1340 z1=1:z2=9:gosub500
  137. 1350 gosub520:gosub510
  138. 1360 onzgoto1370,1460,1540,1620,1670,1720,1790,1370
  139. 1370 ifek=0then1330
  140. 1380 ife=3then1410
  141. 1390 ifv1-v2>20then1460
  142. 1400 ifv1-v3>20then1540
  143. 1410 print"kunde: "s" schokoladeneis bitte !"
  144. 1420 ifw1=0thenprint"ausverkauft":ek=ek-1:goto1450
  145. 1430 ifs>w1thenprint"das ist das letzte ":k=k+(w1*v1):w1=0:ek=ek-1:goto1450
  146. 1440 w1=w1-s:k=k+(s*v1):ek=ek-1
  147. 1450 forj=1to200:next:return
  148. 1460 ifek=0then1330
  149. 1470 ife=3then1500
  150. 1480 ifv2-v1>20then1370
  151. 1490 ifv2-v3>20then1540
  152. 1500 print"kunde:"s"zitroneneis bitte "
  153. 1510 ifw2=0thenprint"ausverkauft":ek=ek-1:goto1450
  154. 1520 ifs>w2thenprint"das ist das letzte ":k=k+(w2*v2):w2=0:ek=ek-1:goto1450
  155. 1530 w2=w2-s:k=k+(s*v2):ek=ek-1:goto1450
  156. 1540 ifek=0then1330
  157. 1550 ife=3then1580
  158. 1560 ifv3-v1>20then1370
  159. 1570 ifv3-v2>20then1460
  160. 1580 print"kunde:"s"waldmeistereis bitte !"
  161. 1590 ifw3=0thenprint"ausverkauft":ek=ek-1:goto1450
  162. 1600 ifs>w3thenprint"das ist das letzte ":k=k+(w3*v3):w3=0:ek=ek-1:goto1450
  163. 1610 w3=w3-s:k=k+(s*v3):ek=ek-1:goto1450
  164. 1620 ifek=0then1330
  165. 1630 print"kunde:"s"cola bitte !"
  166. 1640 ifw4=0thenprint"ausverkauft":ek=ek-1:goto1450
  167. 1650 ifs>w4thenprint"das ist die letzte ":k=k+(w4*v4):w4=0:ek=ek-1:goto1450
  168. 1660 w4=w4-s:k=k+(s*v4):ek=ek-1:goto1450
  169. 1670 ifzk=0then1330
  170. 1680 print"kunde:"s"schachtel zigaretten !"
  171. 1690 ifw5=0thenprint"ausverkauft":zk=zk-1:goto1450
  172. 1700 ifs>w5thenprint"das ist die letzte ":k=k+(w5*v5):w5=0:zk=zk-1:goto1450
  173. 1710 w5=w5-s:k=k+(s*v5):zk=zk-1:goto1450
  174. 1720 ifbk=0then1330
  175. 1730 ife=3then1750
  176. 1740 ifv6-v7>30then1790
  177. 1750 print"kunde:"s"bratwuerstchen !"
  178. 1760 ifw6=0thenprint"leider ausverkauft":bk=bk-1:goto1450
  179. 1770 ifs>w6thenprint"das ist das letzte":k=k+(w6*v6):w6=0:bk=bk-1:goto1450
  180. 1780 w6=w6-s:k=k+(s*v6):bk=bk-1:goto1450
  181. 1790 ifbk=0then1330
  182. 1800 ife=3then1820
  183. 1810 ifv7-v6>30then1820
  184. 1820 print"kunde:"s"teller pommes bitte !"
  185. 1830 ifw7=0thenprint"leider ausverkauft":bk=bk-1:goto1450
  186. 1840 ifs>w7thenprint"das ist das letzte":k=k+(w7*v7):w7=0:bk=bk-1:goto1450
  187. 1850 w7=w7-s:k=k+(s*v7):bk=bk-1:goto1450
  188. 1860 print"[147]statistik:
  189. 1870 [153]"sie haben es in"zw"wochen geschaft den
  190. 1880 print"kasseninhalt von 10 auf"k/100"dm zu":print"erhoehen.
  191. 1890 wl[178](k[173]zw)[173]100
  192. 1900 [139]zw[177]1[167][153]"das ist ein wochenlohn von"wl"dm
  193. 1910 ifwl>300thenprint"sie sind die perfekte 'tante emma' !":goto1950
  194. 1920 ifwl>200thenprint"herr rosental wuerde sagen 'spitze'":goto1950
  195. 1930 ifwl>50thenprint"man kann's noch schlechter machen":goto1950
  196. 1940 ifwl<51thenprint"ich will ja nichts sagen aber...
  197. 1950 [151]198,0:[146]198,1:[153]"load":[128]
  198. 1960 [143] *** anleitung ***"
  199. 1970 print"[147][151]spielanleitung:
  200. 1980 [153]"in diesem spiel werden sie besitzer
  201. 1990 print"einer imbiss-bude. ihre aufgabe besteht
  202. 2000 [153]"darin,in moeglichst kurzer zeit,":[153]"moeglichst viel gewinn zu erreichen."
  203. 2010 [153]"dies ist nur durch geschickte":[153]"kalkulation moeglich.
  204. 2020 print"folgende parameter sollten sie bei der ";
  205. 2030 print" festlegung ihrer preise bedenken:
  206. 2040 [153] "   temperatur"
  207. 2050 [153] "   wochentag bzw.wochenende
  208. 2060 print "   haendler-angebote"
  209. 2070 print:print "das einkaufen von ware ist nur an werk-":print"tagen moeglich!
  210. 2080 [151]198,0:[146]198,1:[151]198,0:[142]
  211. 2090 [137]2080
  212.